home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 August / Software of the Month Club 1996 August.iso / pc / os2 / famtree / lngevity.ftx < prev    next >
Encoding:
Text File  |  1996-05-20  |  1.6 KB  |  64 lines
  1. /*
  2.    Family Tree Rexx Script FTX
  3.  
  4.    Copyright (C) 1996 by <Nils Meier>
  5.  
  6.    Please send comments to / Kommentar bitte an
  7.         meier2@athene.informatik.uni-bonn.de
  8.  
  9.    < This script shows the longevity of all persons in the tree
  10.    that have a date of birth and death
  11.    / Dieses Skript zeigt die Lebenszeit aller Menschen aus dem Baum,
  12.      die einen Geburtstag und Sterbetag haben.>
  13.  
  14. */
  15.  
  16. /* ----------------------- Params  /  Parameter ------------------- */
  17. namewidth=40
  18.  
  19. IF getLanguage()='Deutsch' THEN DO
  20.    header    = 'Lebenszeitanalyse. (erreichtes Alter) Heute ist der '
  21. END
  22. ELSE DO
  23.    header    = 'Longevity Analysis. (Age at death) Today is '
  24. END
  25.  
  26. /* ----------------- Display Header / Kopf der Ausgabe ------------- */
  27.  
  28. SAY(header||DATE())
  29. SAY(....................................................)
  30.  
  31.  
  32. /* ------------------------------ Output / Ausgabe ----------------- */
  33.  
  34. /* Sort Persons by Longevity  /  Personen sortieren nach Lebenszeit */
  35. rc=sortPersons('L')
  36.  
  37. /* Display persons in tree  /  Anzeigen der Menschen im Stammbaum*/
  38.  
  39. rc=selectPerson('F')
  40. DO UNTIL rc=0
  41.  
  42.    /* Check Birth & Death years  /  Nachpruefen von Geburts-, Todesdatum */
  43.    birth=getBirthDate('Y')
  44.    death=getDeathDate('Y')
  45.  
  46.    IF birth<>0 & death<>0 THEN DO
  47.  
  48.       b_days=getBirthDate('d')
  49.       d_days=getDeathDate('d')
  50.       
  51.       /* Say the result  /  Ergebnis ausgeben */
  52.       result = getName()||','||GetFirstName()
  53.       result=LEFT(result,namewidth)
  54.  
  55.       SAY(result||' ('||(d_days-b_days)%365||')')
  56.       END
  57.  
  58.    /* next  /  naechster */
  59.    rc=selectPerson('N')
  60. END
  61.  
  62. /* Done  /  Fertig */
  63. RETURN
  64.